From 7a91428b991e495330a44a8706b3676a557330d8 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 6 Nov 2000 14:33:25 +0000 Subject: [PATCH] (Fwrite_region): Use `visiting' rather than `visit' when ensuring we don't do visit in indirect buffer. --- src/fileio.c | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/src/fileio.c b/src/fileio.c index a07ea27b1de..ce8172df03d 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -4411,7 +4411,8 @@ This does code conversion according to the value of\n\ Lisp_Object visit_file; Lisp_Object annotations; Lisp_Object encoded_filename; - int visiting, quietly; + int visiting = (EQ (visit, Qt) || STRINGP (visit)); + int quietly = !NILP (visit); struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5; struct buffer *given_buffer; #ifdef DOS_NT @@ -4419,7 +4420,7 @@ This does code conversion according to the value of\n\ #endif /* DOS_NT */ struct coding_system coding; - if (current_buffer->base_buffer && ! NILP (visit)) + if (current_buffer->base_buffer && visiting) error ("Cannot do file visiting in an indirect buffer"); if (!NILP (start) && !STRINGP (start)) @@ -4531,9 +4532,6 @@ This does code conversion according to the value of\n\ visit_file = filename; UNGCPRO; - visiting = (EQ (visit, Qt) || STRINGP (visit)); - quietly = !NILP (visit); - annotations = Qnil; if (NILP (lockname)) -- 2.30.2